home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Graphics Plus
/
Graphics Plus.iso
/
general
/
visulztn
/
saoimage
/
saoimage.lha
/
vms
/
ghstname.c
< prev
next >
Wrap
Text File
|
1989-11-10
|
254b
|
12 lines
gethostname (char *node, int nodelen)
{
char *p, tmp[32];
strcpy (tmp, getenv("SYS$NODE")); /* gets NODENAME:: */
if (p = strchr (tmp, ':')) /* chop off "::" */
*p = '\0';
strncpy (node, tmp, nodelen);
node[nodelen] = '\0';
}